#
# Warrior qui a gagne
# l'annee derniere
#     VOALA
#
.name		"Celebration Funebre v0.99pl42"
.comment	"Jour J"

		ld   %0,r3		
		zjmp %1
		zjmp %0				# pour eviter ecrasement
						# de l'instruction suivante
		live %42			# 5
		sti  r15,%0,%14			# 6
		zjmp %2				# 3
		live %42			# 5
		sti  r15,%0,%14			# 6
		zjmp %2			# 3
		live %42			# 5
		sti  r15,%0,r14			# 6
		zjmp %2			# 3
		live %42			# 5
		sti  r15,%0,r14			# 6
		zjmp %2			# 3
		sti  r15,%0,r14			# 6
		zjmp %2			# 3
		sti  r15,%0,r14			# 6
		zjmp %2
	
		sti   r1,%2,%1  # 		# mets a jour le live
		sti   r1,%3,%15 # 		# mets a jour le live
		sti   r1,%5,%29 # 		# mets a jour le live
		sti   r1,%1,%43 # 		# mets a jour le live
		sti   r1,%9,%57 # 		# mets a jour le live
		sti   r1,%10,%71 # 		# mets a jour le live
		ld   %3,r4		 	#7	
		ld   %9,r12		#7	
		ld   %1,r11			#7
		ld   %6,r10			#7
		live %42			#5
		sti  r4,%2,%1		#7
		add  r4,r12,r4			#5	
		sub  r10,r11,r10		#5
		zjmp %0			#3
		fork %2			
		live %3
		fork %10
		live %4
		fork %10

		live %42
		ldi  %8,%10,r15		#set des octets 9-12
		ld   %1,r14			#=$A-6-8
		ld   %0,r2
		zjmp  %3
			
		live %42
		fork %4
		live %42
		ldi  %4,%6,r15 		#set des octets 5-8
		ld   %19,r14			#=$A-6-4
		ld   %0,r2
		zjmp %0
		
		live %42	
		ldi  %12,%0,r15		#set des octets 13-16
		ld   %18,r14			# $A -6 -12
		ld   %0,r2
		zjmp %0
		
		live %42
		ldi  %0,%3,r15		#set des octets 1-4
		ld   %9,r14			# $A -6 -0
		ld   %0,r2			#
		zjmp %0			#



